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'r:l/iL.Sv P'ORTRAis! FOK ^mE PDP-1 

No t e s _ c o ricerri 1 tkji_ compiling a nc[ l^o a dx na_ ^ t he J^P'^ TKA r«^ ^'•-!^^ ^ i "r! - 'r' - £l 

The DS tdpes for the PLiP 8/28 fioatiiig point package shcuid all 

ludy be liiikfcd with seyiasrits ai the FuRTkAN system-. 

The FLIP 8/28 floating poAnt package may also be used tor non- 
FORTHAN programs « A complete v/riteup of the package is being 
prepared by the author of the FLIP routines- 

All of the included routiiies are for machines with mui div hard- 
ware, however, they may be converted for use with mus dis by mak^ 
J r^g ig's for mui, nipy. div, and dvd v.?hich simulate the mul div 
instructions by subroutines. 



Ihe tapes labeled Ai, A2^ and A3 should be r'ompiled into a «. ? no - e 

labeled B should be compiled into DL tape. Tlie tape labeled C 
should be compiled Into DL tape. The DL tapes produced by tapes 
8 and C are the upper memory segraant of the gysteme, 

To load and link the upper and lower memory segments, follow the 
instructions given on page 62 of the DECAL Manual iDSGUS 39, 
September 26^ 1963) 

If addit-ions or changes are made to the compiler, be sure that, the 
main program does not extend over address 6777 as m the current 
versions (versions 1 and 2). The area extending frota 7000 through 
7777 is used for var:a.ous tables and for the input buffer area 



£2iB£i'..lJ:;i?SLj^*Jd..ll Il!Si.ilS-_i^lH--§BPl" 9 y tine package 2 

The tapeB labeled Si and S2 should be compiled into a single DL tape 
The ^-^pe labeled S3 should bo cornpiled ].^ito a DL tape. Using the 
low iiitkj.ng loader, load the Di, tape produced from tapes SI and S2. 
then load the tapt- pi'oducev-^ uy t ao'-;} J3, Ai-re> th'-se -.'-■ "oaaec. dtm- 
sense switch f^ up "^o ».^<=»e wh ' '"'h -^-f "■ ""- -r^.~. -^ .,,..,> * .^ , . 
required and load the riece^-iScirv ooes. i'n^ -^^uir-^ou. ? ne ]"^- ''f-tsq? rtay 
actually bo Jcscated anyv/her^- i * uvsu-j-y, /t). ci-. ^- ua;;- ^^ .-t '^Ir, 
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the subrout .nj ^^ ^\.x^^ .i x.^ I.>«^d d j .u ^ ^- * -^..u-x.i^, z' ^ /n'.c, s cq 
be used !"Or J'i*. _ '■»> -m. n ^ ^ ' - . .•",,'■' jr^-i 
After puncJ-'Lac 1 ■» t.^ cLol I .(.-^ r-^:ich '1' r..--^.- • 
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FORTRAN FOR THE PDP-1 - VERSION 1 and 2 

The FORTRAN compiler for the PDP-1 is not intended to be a replacement language 
for the other compiler and assembly languages already in use on the PDP-1, however, 
it is useful for short programs which may easily be coded in FORTRAN. 

The first version of the FORTRAN system for the PDP-1 uses mus and dis instructions; 
and mpy and dvd subroutines. 

Version 2 is for machines with mul div hardware. Be sure that the mul/mus switch is 
set to mul, and the div/dis switch is set to div. 

A statement number is required only if the statement is referred to elsewhere in the 
program. 

Tabs, spaces, and redundant carriage returns may be used freely. 

Backspace causes the entire line to be ignored. 

CONSTANTS 



Integer constants magnitude ^ 131 071 „ 

Floating point constants may be up to 10 digits to the left of the decimal point and/or 
up to 10 digits to the right of the decimal point. Floating point constants may be fol- 
lowed by the letter e and an exponent. 

The exponent of a floating point value must never exceed ± 38. 

Floating point values are in a 2-word format with an 8-bit exponent and a 28-bit man- 
tissa. 

Statement numbers may be up to 6 decimal digits. 

Variable names may be up to 6 characters. 

All alphabetic characters are lower case. 

A fortran comment is a line beginning with a letter c followed by a tab. 

Maximum statement length varies, however, up to 156 characters are allowed for any 
type of statement. 

If sense switch 5 is up, the input to the compiler is from the typewriter; if sense switch 
5 is down, the input is a FIO-DEC paper tape. 

If sense switch 6 is down, the output is a DECAL symbolic tape; and if sense switch 6 
is up, the output is typed. This is sometimes useful for seeing how a particular state- 
ment compiles. 

Parentheses or brackets may be used interchangeably. 
II. ARITHMETIC STATEMENTS follow the general rules of the FORTRAN language. 
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Examples of arithmetic statements: 

abc = sinf(x(3)-(abc x any(n, 5)-(cosf(a/b))) + 45.6 
n(4, i,3) = i X [ k/45 + (match-4)] / iabsf(l<-4) 
a= -b + c + (-d) 

Mi. FUNCTIONS AVAiLABLE : 

sinf ~ floating point sine ^argument in rauians; 

cosf - floating point cosine ^^argument in radians; 

acosf - floating point arc cosine (argument is a cosine, returns with radians) 

asinf - floating point arc sine (argument is a sine, returns with radians) 

atanf - floating point arc tangent (argument is a tangent, returns with radians) 

expf - floating point exponential 

sqrtf - floating point square root 

logf - floating point log 

loglOf- floating point log (base 10) 

absf - floating point absolute value 

iabsf - integer absolute value 

Names of integer variables begin with letters i, j, k, I, m, or n. 

Names of floating point variables begin with any letter except i, j, k, I, m, or n. 

Variable names may not end with the letter f. 

Mixed mode Is not allowed and is not checked by the compiler. 

a= a-b/'i is illegal as j is on integer variable. 

i= j+k-b/3 is illegal as b is a floating point variable. 

a= i-5+k is allowed; i-5+k is calculated in integer mode, the result converted 

to floating point, and stored in variable a. 

i= a-b/7.3 is allowed; a-b/7.3 is calculated in floating point mode, the result 
converted to integer mode (with any fractional part dropped), and 
the result stored in integer variable i. 

The DECAL subscript interpreter is used, so up to 32 subscripts on a single variable 
should be okay. 

Subscripts begin with 1, not as in DECAL. 

Recursive subscripts are not allowed. 

Subscript arithmetic is allowed in integer calculations, however, it is not allowed in 
floating point. 

Examples: 

k= i(3/k+n, j) okay 

b= a(3/k+n, j) is illegal as the subscript arithmetic will be 

performed in floating point mode resulting in 

an incorrect subscript. 
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IV. GO TO STATEMENTS 



go to 1 00 

go to (45, 600, 3, 888), k 



^: Ar\r\ j._ 



go ro I, ^0'^,ouu,4UU; 



program transfers to statement 100. 

causes transfer to the 1st, 2nd, 3rd, etc., 
statement on the list depending upon 
whether k is 1 , 2, 3, etc. 

saves location of statement 400 in i. 

transfers to statement specified by i which 

has been set bv n nrevio"*: "assian" state- 
f |_ . . . -J 

ment. 



The list of statement numbers in the parentheses is optional. 

go to i is a legal assigned go to. 



V. SENSE LIGHTS AND SENSE SWITCHES 
if (sense switch 3) 12, 34 



sense light 
sense light 5 

if (sense light 4) 34,2 



transfers to statement 12 if the console sense 
switch 3 is on (up), transfers to statement 34 
if the switch is off (down). Switches 1 thru 6 
may be used. If sense switch 7 is tested it wil 
cause a transfer if any switch is on. 

turns off sense lights 1 thru 6. 

turns on sense light 5. Sense lights 1 thru 6 
are normally used, however, sense lights 7 
thru 99 may also be used but the sense light 
statement will not turn off lights 7 thru 99. 

transfers to statement 34 if sense light 4 is on; 
transfers to statement 2 if sense light 4 is off. 
If (sense light) statements always turn off the 
sense light that is being tested. 



Note: The FORTRAN sense lights are not the same as the program flags on the console; 
however, at a "pause" or "stop" statement sense lights 1 through 6 are displayed in the 
program flags. 



VI. IF STATEMENTS 



if (a) 12,34,56 



"a" may be any arithmetic expression. Mixed 
mode is not allowed. 



if (a(3)-(b/x+56.7)) 300,4,5032 the arithmetic calculations are performed and 

the program transfers to statement 300 if the re- 
sult is negative, statement 4 if zero, or state- 
ment 5032 if positive. 
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VII. PAUSE AND STOP STATEMENTS 

pause 45 The line "pause45" Is typed out and the pro- 

gram halts. Pushing continue, on the console, 
causes the program to resume. 

stop 6667 The line "stoD6667" is t^^ned out and the program 

halts. This is a terminal halt and pushing con- 
tinue has no effect. 

After the "pause" or "stop" any decimal number is leagal or you may type a special message 
by using a series of words separated by - [dash] . 

Examples: 

pause 987654399 

stop — this-is-the-end-of-the-program 

The entire "pause" or "stop" line is typed out. Don't use commas or periods as part of the 
line. 

VIII. DO STATEMENTS 



Examples: 

do 500 }=1,300 The following statements through statement 500 

are executed. The first time through the loop j 
will be 1; j is incremented by 1 each time until 
the final time through the loop it is 300, then 
the statement following statement 500 is ex- 
ecuted. 

The increment may also be specified 

do 67 k=l,45,3 the increment is 3 

The values used for the "do" may also be unsubscripted integer variables. 
The values may have a minus sign. 

do 689 kr = 100, -n, -2 the increment is a negative 2 so kr will be TOO 

the first time through the loop and will be 98 the 
second time, etc. 

"do" loops may end on the same statement number. 

do 400 k3= 1,300 
do 400 k4= 5,m,7 

After a "do" loop is completed and the program transfers out of the loop, the integer vari- 
able used for the index will contain the same value as the last time through the loop. 

The second and/or third parameters of a "do" statement may not be the same variable 
name as the index variable. 

Examples: do 50 k=l,k is not allowed. 

do50k=1,4,k is not allowed. 

The above rule is not checked by the compiler. 
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The "continue" statement may be used for terminating a "do" loop where the final 
statement would otherwise be an "if", "go to", or another "do". 

Example: 

do 500 1=1,34 

if (a(i)-value) 600,600,500 
500 continue 

The "continue" statement may also be used freely in the program; however, if it is 
not the final statement of a "do" loop, a "nop" instruction is executed wasting one 
word. 



IX. END STATEMENT 

All programs must end with an "end" statement. If the "end" statement is in the 
flow of statements being executed, it must either have a statement number or have 
characters following the "end" in the same manner as a "pause" or "stop" . If the 
"end" statement is not to be executed, it may be by itself on a line. 



X. DIMENSION STATEMENT 



The "dimension" statement is the same as in other FORTRAN systems except in this 
system it must be in the executed flov/ of the program. It is executed once and then 
bypassed if the program flow repeats through the same path of the program. 

A subscripted variable must be dimensioned before it occurs in any other statement. 

Examples of the "dimension" statement: 

dimension i (45) 

dimension j (4,5), abc {55), k{5), x(2,2,2,2) 



XI. INPUT/OUTPUT 

The standard PDP-1 consists of a typewriter and paper tape input/ output, thus only 
those devices will be provided for in version 1 of the FORTRAN system. 

type 45,a, i,x(4),y(i) the variables on the list will be typed 

according to format 45. 



punch flex 45,a,i,x(4) 



accept 74, i,a(34),l<(i) 



read flex 85, i, i,xx(i) 



the variables on the list will be punched 
in FiO-DEC code according to format 45. 

the variables on the list will be accepted 
from the typewriter according to format 74. 

the variables on the list will be read from 
FIO-DEC coded paper tape according to 
format 85. If a stop code (oct 13) is read, 
the program enters a one-word loop in the 
subroutine package. The program may pro- 
vide for stop codes being read by using a 
DECAL insert (see SPECIAL FEATURES). 
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"Do" type Indexing within input/output statements of the following form is not 
allowed. Examples: 



type66,(a(l<),k=l,34) 



feed flex, n 



;nd fl 



ex 



is not a I lowed 

This is a non-standard statement and causes 
n blank lines of paper tape to be punched. 
The argument,- n^ may be an unsubscripted 
integer variable or integer constant. 

This Is a non-standard statement and causes 
a stop code to be punched. 



XII. FORMAT 



This statement specifies how data is to be transmitted between Input/output devices 
and the computer. 

Example of a format: 

35 format (a5, 16, f 13.6, 3x, 12) 



specifiv-ci 



tion 



The format specification 110 may be used to type a number which exists In the computer 
as an Integer quantity. Ten type positions ore reserved for the number. It is typed in 
this 10-dlgit field right-iustifled (that is, the units position is at the extreme right). 
Positions in the field to the left of the most significant digit are blank. 

If the format specification 110 Is used for Input, 10 characters may be typed In or 
read from paper tape and the resulting Integer value will be stored in the variable 
specified by the Input statement. The largest Integer value that shpuld be used as 
Input Is 131071 . There Is no check for exceeding 131071 magnitude. Non-digit 
characters (except minus sign) will cause an error halt. 

"f" specification 

If the format specification flO.3 Is used to type a number which exists In the computer, 
10 type positions are reserved for the number and there will be 3 positions to the right 
of the decimal point. 

If the format specification fl2.5 is used for Input, 12 characters will be read from the 
input device. If there Is no decimal point In the string of input characters^ one will be 
assumed to be In the value and the rightmost 5 digits are the decimal fraction. If a 
decimal point Is one of the Input characters Its position In the field over-rides the 
specification. 

"x" specification 



Blank characters may be provided In an output record, or characters of an input record 

may be skipped by means of the "x" specification. 

3x In a format would cause 3 characters to be skipped. 
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" h" specification 

The "h" specification Is used for Input/output of alphanumerlcal information that will 
not be manipulated by the program. 

Shabcde In a format used for output would cause 5h characters "abode" to be output. 

3habc in an Input format would cause 3 characters from the input device to replace 
the 3 characters In the "h" field. 

All PDP-1 typewriter characters are usable in "h" fields, however, the specification 
must Include upper and lower shift as characters. 

"a" specification 

If the format specification a3 is used for output, the word from the output list will be 
outputted as alphanumeric characters (FIO-DEC code). If the format specification a4 
is used for Input, the characters are stored in FIO-DEC code. Only 3 "a" characters 
will fit in a word^so for input, the last 3 of the field. If it exceeds 3, will be sfored. 

"a" fields may only be stored in Integer variables. 

A slash ( / ) In a format Indicates end of a line. 

NOTE: There Is some problem with input/output of large "i" and "f" format specifications, 
For this version try to limit the field width to about 20 characters. 

For "i" or "f" output, try to allow extra character positions In the field width so there 
will be room for a minus sign. 

For "f" specifications where the output field is only to be decimal fractions with no In- 
tegers, allow an extra position so a leading zero may be output. Example: Consider 
the floating point value 0.0345 which is to be typed. If the field Is f5.4, there will 
be no room for the leading zero so a field overflow occurs, if the field is f7.4. It will 
type correctly. 

If there is a field overflow (too many digits to fit in the field) during output, the field 
will be output as dashes (-). 

Example: Consider the value 500.678 which Is to be output under specification f6.3. 
There are too many digits so it will be output as 6 dashes ( ). 

The Input/output routine scans the Input/output statement list, and for each variable 
gets the corresponding format specification. If the format has no more specifications. 
It starts again with the first specification. 

Example: Consider the variables a,b,c which are to be output as flO.3 fields type 30, 

a,b,c. 
30 format (flO.3) 

The variables will all be typed as flO.3 fields, however, whenever the format routine 
has to restart scanning the format. It types a carriage return so each variable will be 
on a separate line. 
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When the format has more specifications than the input/output list requires, the extra 
specifications are ignored. 

When the input/output list requires the format to be restarted and the input/output list 
finishes before the format is used up and there are "h" fields in the format., the routine 
requires the entire line to be input or output. However, the ''i", "a"', and "f fields 

Another feature of the format statements is trie ability to repeor a specification oy pro- 
ceeding the specification with a number. 

Example: 

10 format (a4,5f7.3,3x, flO.4) will work in the same manner as 

10 format (a4, f7.3, f7.3, f7.3, f7.3, f7.3, 3x, flO.4) 

Only one pair of parentheses is allowed in a format. 

There is no fixed line length for input/output so you are not limited to 120 characters 
per line as in most FORTRAN systems. 

There are two special escape characters usable with the input routines. 
During Input under an a, I, x, or f specification If either a tab or carriage return Is 
Input, the input variable being input Is stored and the routine scans ahead for the next 
Input variable on the list. 

The tob and carrloqe return escape choroctcs may be reoiaced bv using DECAL inserts. 
(See SPECIAL FEATURES.) 



XIII. OPERATION OF THE FORTRAN SYSTEM 



The FORTRAN system consists of 7 paper tapes for compiling, loading, and executing 
FORTRAN programs. 

Tape 1 - FORTRAN compiler 

Tape 2 - DECAL compiler (modified) 

Tape 3 - HI LINKING LOADER 

Tape 4 - Symbols for linking the subroutine package to your FORTRAN program. 

Tape 5 - Libetape of subroutines required by some programs. 

Tape 6 - Subroutine package - input/output routines, subscript interpreter, and other 
routines required by most FORTRAN programs. 

Tape 7 - Punch off routine 

To compile, load, and execute a FORTRAN program: 

1 . Make a FORTRAN symbolic FIO-DEC paper tape of your FORTRAN program. You 
may skip this step by typing the program directly into the FORTRAN compiler, how- 
ever, if you have program errors you will then usually have to retype the entire 
program. 

2. Load the FORTRAN compiler. The compiler is in a self-loading, condensed tape 
form. Place in reader, turn on, push READ-IN on the console. 
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3. Ready your program tape in the reader (unless you are going to type your program 
in, then have sense switch 5 up). START at 0000. If sense switch 3 Is up during 
compilation, the input statement is not included in the output as a comment, re- 
sulting in a slightly shorter output tape. 

4. If your program compiled without any errors load the DECAL compiler. 

5. Ready the FORTRAN compiler output tape, which is a DECAL symbolic tape, in 
the reader and depress the space bar on the typewriter. 

6. If your program compiled without any errors load the HI LINKING LOADER. 

7. Ready the DECAL output tape (DL tape) in the reader. If you don't want to type 
out system symbols while loading set sw.1 up. If you want to origin your program 
at 0000 to use all available memory) set sw.2 up and clear the Test Word Switches 
(all down) START at 6000. After starting put sw.2 down. 

8. Ready the symbol tape in the reader for linking the subroutine package. Push CON- 
TINUE on the console. 

9. Put sw.6 up and push CONTINUE to store integer constants. If the letters rq are 
typed In red then your program probably requires some of the libetape subroutines. 

9a. To read the libetape - Ready tape in reader, put sw.5 up, and push CON- 
TINUE. After the libetape is read in then go to step 9 above. If fhe letters 
rq are again typed out; your program must require some subroutine that is not 
provided with fhe system. 

10. After your program has been loaded (and the highest address does not overlap the 
subroutine package) then the subroutine package must be loaded. Ready the tape 
in the reader and push READ-IN on the console. 

Your program is now ready to execute or be punched off. The first time your program 
is started the location of the array storage area is typed out. Be sure that the lowest 
address of the array area does not overlap the highest address of your program. 

The punch off routine "pofmem" punches off a loader and all non-zero words from 4000 
through 7777 and 0000 through 3537. The resulting tape, when loaded. Is not self 
starting. 

The punch-off routine occupies 3540 through 3777. 

When your program is loaded using the output tape of "pofmem". If the Memory Buffer 
is a normal hit (760400), you may start your program. However, if the Memory Buffer 
is octal 141414, then there was a check-sum error indicating either a punch or reader 
error. 



XIV. ERRORS 



The FORTRAN compiler checks most of the common errors made in FORTRAN programs, 

If an error is found the following is typed out: 

erN linej 

where N is the error type and J is the line number in your program. 
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After an error has been found the rest of the program is scanned for further errors, 
but the normal output tape is not punched. 



A, FORTRAN errors detected bv the compiler: 



I :)tatement too long. 

^ 1 1 1 _ _ I _ I 1. _ .. 

Z Illegal cnaraciei . 

3 Unmatched parentheses or brackets. 

4 Statement number too long (over 6 digits). 

5 Unrecognized statement. 

6 Comma missing after variable name in assigned go to. 

7 "do" loop terminated by a "do", "if", "stop", or "go to". 

8 go to N statement number N is over 6 digits. 

9 Not fixed point variable is assigned go to. 

10 No comma after right parentheses of computed go to. 

1 1 Can't find letters "to" of assign statement. 

12 Too many floating point constants, 
io ii statement has illegal potn. 

14 Illegal sense switch number y 7, 

15 Bad "if (sense light)" statement. 

16 Some unterminated "do" loops. 

17 Nothing to right of equals sign in arithmetic statement. 

18 "do" terminated previously. 

19 Too many "do" loops. 

20 Index variables name in "do" statement is not an integer variable. 

21 Variable name over 6 characters. 

22 Only one parameter for a "do" loop (do 123 l<=2). 

23 Comma after third parameter of a "do" loop (do 123 I<=1,2, 3,4). 

24 Variable name used for "do" loop parameter begins with a digit. 

25 Variable name used for "do" loop parameter is not an integer name. 

26 "do" has been terminated previously. 

27 "format" has no statement number. 

28 Error in "format" statement 

29 No carriage return after ) in "format" [12 format (a4, (f5.6)) not allowed] 

30 No decimal point in "f" field specification of "format". 

31 Field specification too large (Max. =63). 
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32 No format number In input/ output statement. 

33 Variable name over 6 characters. 

34 Too many undlmensioned variables. 

35 "dimension" has a statement number. 

36 Variable name ends with letter "f". 

37 Undimensioned variable has a subscript. 

38 Dimensioned variable has no subscript. 

39 Subscripted variable has not been dimensioned. 

40 Too many dimensioned variables. 

41 Parity error in FIO-DEC input paper tape. 

42 Over 10 digits to right or left of decimal point in floating point constant. 

43 Exponent overflow in floating constant routine. 

The only time a variable name is checked to see if it is too long, (ends with letter "f", etc.), 
is when it is being defined. Fortran variables are defined by being on the left side of an 
equals symbol, in a "dimension", in an input list, or in an "assign" statement. 

Error type 26 and error type 18 above appear to be the same, however, they indicate different 
errors. 

Error 18 Example: 

do 200 k- 1,300 

do 200 i=l,34 
200 continue 

c do loop 200 has been satisfied. 

do 200 k=l ,50 Error 18 - a do loop that is being defined by a "do" 

statement has already been terminated. 

Error 26 Example: 

do 100k=l,100 
100 continue 

c do loop 100 has been terminated. 

100 a=b-c Error 26 - Terminating statement number of a "do'' 

loop has been found previously. 

Errors 37 and 39 appear to be the same, however, they indicate different errors. 

Example of errors 37, 38, and 39: 

dimension a(lOO) 

b= 57.29578 

b(2) = Error 37 - "b" has a subscript, has not been dimen- 

sioned, but has been defined as an unsubscripted 
variable. 

a= Error 38 - "a" has no subscript, has been dimensioned, 

c(3)= Error 39 - "c" has a subscript, has not been dimen- 

sioned, and has not been defined as an unsubscripted 
variable. 
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Duplicate statement numbers are detected during the pass through DECAL. 

Other errors or program halts: 

hit instruction (760400) = divide halt - probably will never occur. 

Unused instruction 140000 is used to indicate various other troubles. The rightmost octal 
digits indicate the type of trouble. 

140001 = stop code (13) - no "end" statement. 

140002 = overflow set at entry to floating constant routine. 

140003 = overflow set during processing of previous statement. 

140004 = floating divide by zero. Probably will never occur. 

Not all errors are detected during the pass through the FORTRAN compiler, however, they 
will usually be detected during the pass through the DECAL compiler. A common error de- 
tected by the DECAL compiler is a name typed out on the DECAL MAP as an "aps" . This 
indicates an undefined or improperly defined FORTRAN variable name. The only exception 
to this is the name may have been used in a DECAL insert 

Consult the DECAL manual for other errors. 

Note: The names of dimensioned variables ore typed out on the DECAL MAP as being only 
one word. That word is not the location of the array, but is a word where the address of the 

O i 1 ij y 



B. Errors Detected During Execution Of Your Program. 

hit instruction (760400) indicates a divide halt. 

Unused instruction 140000 is used for other error halts. The rightmost digits indicate the 
type of error. To continue after a 140000 instruction the CONTINUE button on the con- 
sole must be pushed twice. 



140002 

140003 
140004 
140005 
140006 
140011 
140012 

140013 
140014 

140015 



FIO-DEC paper tape parity error, the character is in the iO. Put the 
correct character in the Test Word switches and push CONTINUE twice. 

Illegal format. No recovery. 

No carriage return at end of line or format error (paper tape input). 

Non-digit character in "i" or "f" field. Resume and char, is used anyway 

Divide halt during "f" format processing. Should never happen. 

Index of a "do" loop "Z- 131 071 . Resume and invalid index is used anyway. 

Floating number too large to convert to integer variable. Resume and 
trash is used for the integer value. 

Not enough room in array storage area, indicates compiler error. 

Too many subscripts or out of range. Resume and invalid subsc. used 
anyway. 

Out of bounds of array. Resume and invalid subsc. used anyway. 
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140016 Recursive subscript. Not allowed. 

140017 Exponent underflow - no recovery. 
140020 Exponent overflow - no recovery. 

14002! "sqrtf" has a negative argument. Resume and argument is made positive, 

140022 " iogf ' or"ioglOf" argument,^ zero. No recovery. 

The overflow indicator is not checked durina execution of FORTRAN proqram.s and is 
cleared and used by the floating point interpreter and "do" loop subroutine. 

XV. SPECIAL FEATURES 

During execution of a FORTRAN program address 7777 is used for various special switches. 

If bit is on, an overbar is typed at the start of every format field. 

If bit 1 is on, output field overflow is allowed. 

If bit 17 is on, "type" statements are punched instead of typed. 

Address 7776 and address 777^ are used for escape characters during input and if the input 
character matches either word, the format routine stores the input variable and goes to the 
next field. 

7776 normally contains octal 77 (carriage return). 
777^ normally contains octal 36 (tab). 

The output routines for the typewriter and punch use the status bits to try and keep up a 
reasonable speed; so if you are going to use DECAL inserts to type or punch, use the fol- 
lowing subroutines. 

Subroutine typ' will type the character in the right 6 bits of the lO. 
Entrance to typ is a jsp typ. 

Subroutine pcf will punch the right 6 bits of the AC with correct parity. 
Entrance to pcf is a jda pcf. 

The paper tape input, using "read flex", is buffered. Up to 30 characters are read at a 
time unless a carriage return or stop code is read. 

If stop code is read, the subroutine goes into a one-word loop at system symbol eof . If 
you wish to provide for stop codes in you program, deposit an address in eof. 

Example: 

"^ low stlOO; dap eof 

If a stop code is read, the program transfers to statement 100. If you are going to use 
system symbol eof; at the start of your program -Kiss eof. 

XVI. DECAL INSERTS 

Some of the features of DECAL have been expunged, however, they may be put back in 
for use with DECAL inserts. They were expunged merely to give more room on the symbol 
table. 
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A DECAL insert begins with a right arrow—* . 

A line beginning with -♦ is copied directly into the output. 

The proaram is always in fixed-point mode at the start of DECAL insert and if the insert 
uses "efm 2", be sure and give an "Ifm" before resuming with FORTRAN statements. 

The FORTRAN compiler uses block symbols for some "do" and "format" symbols and they 
are expunged whenever possible so DECAL inserts should not use block symbols, 

FORTRAN or DECAL symbols (variable names) should not be any of the following: 

1. May not be the same as any symbol on the DECAL symbol table. 

2. May not be the same as any of the FORTRAN statement types; such as "if", "end", etc 

3. May not be of the form "stN' where N is a decimal number. 

4. May not be of the form "cN" where N is a decimal number. 
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The following Is a listing of the tape used to modify DECAL for the 
FORTRAN system, 

. , . fortranlze decal 
... 18 May 65 

xsy ^ 

~ dier beg lv7 opl rsl 

fde 1st; cma en 
xsy abs 
absf dig beg lv7 opl rsl 

fde; spa 

fde 1st; cma end 
labsf esy absf 

xsy / X 

X dig beg lv6 op2 rsl cmt 

Jda fsy; bcl.lmp, 

lac 2 1st end 

/ dig beg lv6 op2 rsl 

Jda fsy; bci.ldv. 

lac 2 

fde 1st; hit end 



xsy mpy 


dvd 








mpy dig 




beg 
Jda 


lv7 opl 
ths 


rsl nlc 






lac 


1 1st 


end 


dvd esy 


mpy 








slnf dig 




beg 


lv7 opl 


rsl 






Jsp 


ths 1st 


end 


cosf 




esy 


slnf 




sqrtf 




esy 


slnf 




atanf 




esy 


slnf 




acosf 




esy 


slnf 




aslnf 




esy 


slnf 




logf 




esy 


slnf 




loglOf 




esy 


slnf 




expf 




esy 


slnf 




xsy nop 










nop 




ewd 


760000 
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xsy opi op2 op3 rsl cmt ctr ths fsy 1st mns nac 

xsy nlc IvO Ivl lv2 lv3 lv4 lv5 lv6 lv7 

xsy dip lot opr skp usk cal lap mus dis 

xsy fde f ct dpy rrb srb rcb cnv esm Ism 

xsy c"bs msm mwc mrc mc"b rck cac cks eem lem 

xsy mcs chn mec 

xsy Isd Iso asd aso asc dsc Isb bac bpc bio bjm dal 

xsy Iss <= =>| 

xsy goto =32<<>>+ 

•y-Rv sin r».ns atn SGrt In los ex"D ©xdIO t 

xsy if then else clear set for stepu stepd until while 

xsy do lar ina arrase array realarray 

xsy V A xor 

xsy procedure tmp ppa rpa tyi tyo dig • 

fix fin. 



DECAL permanent symbol table 



add 400000 

idx 440000 

lac 200000 

sub 420000 

szf 640000 

Jda 170000 

000000 



and 

ior 
law 
sma 
szo 

;^T 4- 

iiJL O 

clo 
loc 



020000 
040000 

700000 
640400 
641000 

^ Cir\'n r\r\ 

651600 

000000 



dac 

isp 
lio 
spa 

cla 

1 _ -►- 

±'CX. 

mul 
stf 



(modified 
240000 

460000 
220000 
640200 
760200 

762200 
540000 
7b0010 



version) 

dap 260000 

Jmp 600000 

sad 500000 

spi 642000 

elf 760000 

xct 100000 

dlv 560000 

ppb 720006 



dio 320000 

Jsp 620000 

sas 520000 

sza 640100 

cli 764000 

dzm 340000 

nop 760000 

rpb 720002 



action 
fin 

sar 

nol 
Ifm 



operators: 



stp 
dss 
scl 

ndl 
xsy 



dao 
ral 
scr 
pdl 
blk 



fix ... : . : ewd 

rar rcl rcr ril rir 

sil sir szs oct dec 

AC ( bcl str org 

Ive xss odv oda opt 



esy 
sal 

poi 

efm 
[ 



instruction generators: 
; beg end => 

2^ adr I ) 
X / mpy dvd 

logf loglOf expf 



+ 



tpo , ] "" absf iabsf 
sinf cosf sqrtf atanf acosf aslnf 



None of the above symbols may be used for variable names. 

The instruction generators and action operators that have been expunged 

may be put back in if needed; however some of them take quite a bit 

of storage in DECAL so there will not be room for many statement numbers 

or variable names in the DECAL symbol table during compilation of FORTRAN 

programs . 



sample program 

type in up to 100 numbers 

put numbers in ascending or descending order 

(according to sw.2) 
type out ordered numbers 
dimension a(lOO) 
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c 

1 

2 



clear array a 
do 2 J=l,100 
a(j)= 0.0 



10 
c 

20 

50 
100 

110 
115 
140 



150 



160 



type 3 

format (//5hinput) 



fin 20 1=1 



100 



format (flO.5) 

parentheses and brackets may be used Interchangeably 

if [a(j)] 20,50,20 

continue 



do 150 m= l,j 
do 150 k= m, J 
If (sense switch 



3) 115,110 
50,140 
150,150,140 



If (a[m]-a[k]) 150,150,140 

If (a(k)-a(m)) 

temp = a(m) 

a(m)= a(k) 

a(k)= temp 

go to 100 

continue 

type 160, J 

format (lhj,i4/8h ordered) 
do 200 k=l,J 
k) 



200 type 10,a(] 

c spaces and tabs may be used freely 

goto 1 

end 
Listing of the output tape (DS tape which Is read by DECAL) 



dss rdf v;rf tlf tof xf ff dff off dof flf f2f f3f f4f f5f f6f 

fdf eff arf llf 12f 
mainprog' lac laf 

Jda arf 



... dlmenslona(lOO) 

Jsp 12f 

a:. 



sample program 

type In up to 100 numbers 

put numbers In ascending or descending order 

(according to sw.2) 

type out ordered numbers 



lac a [100] 



... ldo2J=l,100 

stl:. 

st2nls: 



clear array a 

pdl 1 
dac J 
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Jmp -M-3 






dec 100 


st2nl: 




..1 


... 2a(j)=0, 


,0 




st2t. 




efm 2 
cl=>a[J] 
law st2nl 
jda dof 
lac st2nls 


blk 






. . . type3 




law st3+l 
Jda tof 


, . . 3f ormat 


nop 
(//5hinput) 


st3:. 




Jmp St 3a 
. . 210000 
. . 210000 
. . 700005 
..714547 
..242376 


st3a: 




nop 


blk 






, . , do2GJ=lj 


, 100 


pdl 1 


st20nls; 




dac J 
Jmp ^4-3 
dec 100 


st20nl: 




..1 



. . . acceptlO,a( j) 

law stlO-fl 

Jda tlf 

dac a[J] 

nop 
... lOf ormat (flO.5) 
stio: . Jmp stlOa 

..661205 
stlOa: nop 

... c parentheses and brackets may "be used Interchangeably 

... If (a(j))20,50,20 

efm 2 

a[j]=>strf 

Ifm 

lac strf 

spa 

Jmp st20 

sza' 

Jmp st50 
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. . . 20con 
st20:. 

blk 


tlnue 


law 
Jda 
lac 


st20nl 

dof 

st20nls 




... 50doi50m=l,J 

st50:. 

stl50nls: 


pdl 
dac 
lac 
dac 
Jmp 


1 

m 
J 

stl50nl- 

^3 


-1 


stl50nl: 
. . . lOOdo 

stioo:. 

stl50n2s: 


150k=m, J 


• • 
..1 

lac 
dac 
lac 
dac 

Jmp 


m 
k 

J 
stl50n2- 

-*+3 


-1 


stl50n2: 

. . . if (senseswltc' 


• • 
..1 
h3)ll5. 
szs 

Jmp 


,110 
3 
stll5 





... iiuli'(a(m)-a(k) )l50,150,i40 

stllO:. efm 2 

a[m]-a[k]=>strf 

Ifm 

lac strf 

spa 

Jmp stl50 

sza» 

Jmp stl50 

... 115if(a(k)-a(m))150,150,l40 

JmD stl40 



stii5:. 



. . . I40temp=a(m) 
stl4o: . 

. . . a(m)=a(k) 

. . . a(k)=temp 

. . . gotolOO 



efm 2 

a[k]~a[m]=>strf 

Ifm 

lac strf 

spa 

Jmp stl50 

sza' 

Jmp stl50 

efm 2 
a[m]=>temp 

a[k]=>a[m] 

temp=>a[k] 

Ifm 

Jmp stioo 



09) 



, . . 150contlnue 
stl50:. 



law stl50n2 
Jda dof 
lac stl50n2s 
law stl50nl 
jda dof 



+.4 ir/-Ny»^ 






... typel60,j 



... I60forniat (ihj, 
stl6o:. 



stl60a: 
blk 



^^o^rM^ — i -» 



st200nls: 



st200nl: 

... 200typel0,a(k) 

st200: . 



blk 

• • • c 

. . . gotol 

• . . end 

strf :. 

laf:. 

blk 

j:. 
m: . 
k2. 
temp: • 



law stl60+l 
Jda tof 
lac J 
nop 
l4/8h ordered) 
Jmp stl60a 
. . 700001 
..417676 
..710400 
. . 210000 
..700010 
..004651 
..646551 
..656476 
nop 



pdl 1 

dac k 

lac J 

dac st200nl~l 

Jmp -N-3 

. . 

..1 

law stlO+1 

Jda tof 

lac a[k] 

nop 

law st200nl 

Jda dof 

lac st200nls 

spaces and tabs may be used freely 

Jmp stl 

• • f • • 

dec 201 

• • f • • 



cl:. 
fin. 



Oct 05 oct 
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Normally the DS tape need not be listed; however if you have errors and 
can»t find them by examining the P0R1RAN coding it may be useful to have 
a listing of the DS tape. 

Following is the Decal Map produced by DECAL after compilation 

Decal Map 

ssd 

mainprog 0000 



ps 

a 

stl 

st2 

st3 

stlO 

st20 

st50 

stlOO 

s tllO 

stll5 

stl50 
stl60 
St 200 
strf 
laf 

J 

m 

k 

temp 

cl 

fin 



0003 
0004 
0011 
0022 
0042 
0056 
0061 
0070 
0101 
0114 
0126 

0137 
0151 
0172 
0202 
0204 
0205 
0206 
0207 
0210 
0212 

0300 



(a pointer to the array "a") 
(location of statement number 1) 



(temporary storage used by "if" statements) 
(contains size of array area) 



(floating point constant) 
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